<!--#include file="pjson.asp"-->
<%
action=Val("action")
select case action
	case "CreateFile" CreateFile
	case "Read" Read
end select
function CreateFile()
  dim rtv
  rtv=Easp.Fso.CreateFile(val("filePath"), val("fileContent"))
  if rtv=True then
    rt 1
  end if
end function

function Read()
   echo Easp.Fso.Read(val("filePath"))
end function
%>